home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
megadraw.zip
/
ALPHA.BAS
next >
Wrap
BASIC Source File
|
1989-03-15
|
58KB
|
746 lines
'
' Alpha.bas
'
' Fonts created by Mega-Draw
' Program Written for QuickBasic
'
' Copyright 1989 Logika (tm)
'
starter:
screen 9:clear
print "This is a demonstration of MegaDraw's capabilities. What follows is a "
print "full color EGA font which was entirely drawn in MegaDraw."
print
print "You are free to use and modify this program as you like."
print
print "Loading fonts..."
yshape=1 : xshape=0: yshape=50 : xshape=0
yshape=150 : xshape=0: yshape=200 : xshape=0
gosub loadshape
print: print "Press any key to start.":i$=input$(1):cls
xshape=0:yshape=0:a$="Character set:": gosub shapeanim
xshape=2:yshape=0:a$="This is a sample line": gosub shapeanim
xshape=3:yshape=0:a$="abcdefghijklmnopqrstu": gosub shapeanim
xshape=4:yshape=0:a$="vwxyzABCDEFGHIJKLMNOP": gosub shapeanim
xshape=5:yshape=0:a$="QRSTUVWXYZ$!%?.,()/\"+chr$(34): gosub shapeanim
xshape=6:yshape=0:a$=chr$(34)+chr$(24)+chr$(25)+chr$(26)+chr$(27)+"aklmnopqru": gosub shapeanim
xshape=7:yshape=0:a$="how are You doing?": gosub shapeanim
xshape=8:yshape=0:a$="1234567890()!#&$%*": gosub shapeanim
xshape=9:yshape=0:a$="$$!!%?.,21311221:-/"+chr$(34): gosub shapeanim
xshape=11:yshape=0:a$="Press any key.": gosub shapeanim: I$=INPUT$(1): cls
xshape=0:yshape=0:a$="M e g a - D r a w !": gosub shapeanim
xshape=2:yshape=150:a$="Presented by:": gosub shapeanim
xshape=4:yshape=0:a$="Logika (tm)": gosub shapeanim
xshape=5:yshape=0:a$="John Buckman": gosub shapeanim
xshape=6:yshape=0:a$="4 Lexington Avenue": gosub shapeanim
xshape=7:yshape=0:a$="New York, NY 10010": gosub shapeanim
xshape=11:yshape=0:a$="Press any key.": gosub shapeanim: I$=INPUT$(1)
for x=1 to 1000: for xx=1 to 15:palette xx,rnd*60
if inkey$<>"" then screen 0:print "Goodbye from Logika!":end
next:next
Loadshape:
dim Ashape545%(145):for x=0 to 145:read Ashape545%(x):next x
dim Bshape545%(145):for x=0 to 145:read Bshape545%(x):next x
dim Cshape545%(145):for x=0 to 145:read Cshape545%(x):next x
dim Dshape545%(145):for x=0 to 145:read Dshape545%(x):next x
dim Eshape545%(145):for x=0 to 145:read Eshape545%(x):next x
dim Fshape545%(145):for x=0 to 145:read Fshape545%(x):next x
dim Gshape545%(145):for x=0 to 145:read Gshape545%(x):next x
dim Hshape545%(145):for x=0 to 145:read Hshape545%(x):next x
dim Ishape545%(145):for x=0 to 145:read Ishape545%(x):next x
dim Jshape545%(145):for x=0 to 145:read Jshape545%(x):next x
dim Kshape545%(145):for x=0 to 145:read Kshape545%(x):next x
dim Lshape545%(145):for x=0 to 145:read Lshape545%(x):next x
dim Ashape077%(145):for x=0 to 145:read Ashape077%(x):next x
dim Bshape077%(145):for x=0 to 145:read Bshape077%(x):next x
dim Cshape077%(145):for x=0 to 145:read Cshape077%(x):next x
dim Dshape077%(145):for x=0 to 145:read Dshape077%(x):next x
dim Eshape077%(145):for x=0 to 145:read Eshape077%(x):next x
dim Fshape077%(145):for x=0 to 145:read Fshape077%(x):next x
dim Gshape077%(145):for x=0 to 145:read Gshape077%(x):next x
dim Hshape077%(145):for x=0 to 145:read Hshape077%(x):next x
dim Ishape077%(145):for x=0 to 145:read Ishape077%(x):next x
dim Jshape077%(145):for x=0 to 145:read Jshape077%(x):next x
dim Kshape077%(145):for x=0 to 145:read Kshape077%(x):next x
dim Lshape077%(145):for x=0 to 145:read Lshape077%(x):next x
dim Ashape311%(145):for x=0 to 145:read Ashape311%(x):next x
dim Bshape311%(145):for x=0 to 145:read Bshape311%(x):next x
dim Cshape311%(145):for x=0 to 145:read Cshape311%(x):next x
dim Dshape311%(145):for x=0 to 145:read Dshape311%(x):next x
dim Eshape311%(145):for x=0 to 145:read Eshape311%(x):next x
dim Fshape311%(145):for x=0 to 145:read Fshape311%(x):next x
dim Gshape311%(145):for x=0 to 145:read Gshape311%(x):next x
dim Hshape311%(145):for x=0 to 145:read Hshape311%(x):next x
dim Ishape311%(145):for x=0 to 145:read Ishape311%(x):next x
dim Jshape311%(145):for x=0 to 145:read Jshape311%(x):next x
dim Kshape311%(145):for x=0 to 145:read Kshape311%(x):next x
dim Lshape311%(145):for x=0 to 145:read Lshape311%(x):next x
dim Ashape241%(145):for x=0 to 145:read Ashape241%(x):next x
dim Bshape241%(145):for x=0 to 145:read Bshape241%(x):next x
dim Cshape241%(145):for x=0 to 145:read Cshape241%(x):next x
dim Dshape241%(145):for x=0 to 145:read Dshape241%(x):next x
dim Eshape241%(145):for x=0 to 145:read Eshape241%(x):next x
dim Fshape241%(145):for x=0 to 145:read Fshape241%(x):next x
dim Gshape241%(145):for x=0 to 145:read Gshape241%(x):next x
dim Hshape241%(145):for x=0 to 145:read Hshape241%(x):next x
dim Ishape241%(145):for x=0 to 145:read Ishape241%(x):next x
dim Jshape241%(145):for x=0 to 145:read Jshape241%(x):next x
dim Kshape241%(145):for x=0 to 145:read Kshape241%(x):next x
dim Lshape241%(145):for x=0 to 145:read Lshape241%(x):next x
dim Ashape658%(145):for x=0 to 145:read Ashape658%(x):next x
dim Bshape658%(145):for x=0 to 145:read Bshape658%(x):next x
dim Cshape658%(145):for x=0 to 145:read Cshape658%(x):next x
dim Dshape658%(145):for x=0 to 145:read Dshape658%(x):next x
dim Eshape658%(145):for x=0 to 145:read Eshape658%(x):next x
dim Fshape658%(145):for x=0 to 145:read Fshape658%(x):next x
dim Gshape658%(145):for x=0 to 145:read Gshape658%(x):next x
dim Hshape658%(145):for x=0 to 145:read Hshape658%(x):next x
dim Ishape658%(145):for x=0 to 145:read Ishape658%(x):next x
dim Jshape658%(145):for x=0 to 145:read Jshape658%(x):next x
dim Kshape658%(145):for x=0 to 145:read Kshape658%(x):next x
dim Lshape658%(145):for x=0 to 145:read Lshape658%(x):next x
dim Ashape202%(145):for x=0 to 145:read Ashape202%(x):next x
dim Bshape202%(145):for x=0 to 145:read Bshape202%(x):next x
dim Cshape202%(145):for x=0 to 145:read Cshape202%(x):next x
dim Dshape202%(145):for x=0 to 145:read Dshape202%(x):next x
dim Eshape202%(145):for x=0 to 145:read Eshape202%(x):next x
dim Fshape202%(145):for x=0 to 145:read Fshape202%(x):next x
dim Gshape202%(145):for x=0 to 145:read Gshape202%(x):next x
dim Hshape202%(145):for x=0 to 145:read Hshape202%(x):next x
dim Ishape202%(145):for x=0 to 145:read Ishape202%(x):next x
dim Jshape202%(145):for x=0 to 145:read Jshape202%(x):next x
dim Kshape202%(145):for x=0 to 145:read Kshape202%(x):next x
dim Lshape202%(145):for x=0 to 145:read Lshape202%(x):next x
dim Ashape656%(145):for x=0 to 145:read Ashape656%(x):next x
dim Bshape656%(145):for x=0 to 145:read Bshape656%(x):next x
dim Cshape656%(145):for x=0 to 145:read Cshape656%(x):next x
dim Dshape656%(145):for x=0 to 145:read Dshape656%(x):next x
dim Eshape656%(145):for x=0 to 145:read Eshape656%(x):next x
dim Fshape656%(145):for x=0 to 145:read Fshape656%(x):next x
dim Gshape656%(145):for x=0 to 145:read Gshape656%(x):next x
dim Hshape656%(145):for x=0 to 145:read Hshape656%(x):next x
dim Ishape656%(145):for x=0 to 145:read Ishape656%(x):next x
dim Jshape656%(145):for x=0 to 145:read Jshape656%(x):next x
dim Kshape656%(145):for x=0 to 145:read Kshape656%(x):next x
dim Lshape656%(145):for x=0 to 145:read Lshape656%(x):next x
return
shapeanim:
xshape=xshape*29
for x=1 to len(a$)
x$=mid$(a$,x,1)
if x$=" " then yshape=yshape+30:goto shapeanim2
if x$="A" then put (yshape,XShape),Ashape545%,pset:yshape=yshape+30:goto shapeanim2
if x$="B" then put (yshape,xshape),Bshape545%,pset:yshape=yshape+30:goto shapeanim2
if x$="C" then put (yshape,xshape),Cshape545%,pset:yshape=yshape+30:goto shapeanim2
if x$="D" then put (yshape,xshape),Dshape545%,pset:yshape=yshape+30:goto shapeanim2
if x$="E" then put (yshape,xshape),Eshape545%,pset:yshape=yshape+30:goto shapeanim2
if x$="F" then put (yshape,xshape),Fshape545%,pset:yshape=yshape+30:goto shapeanim2
if x$="G" then put (yshape,xshape),Gshape545%,pset:yshape=yshape+30:goto shapeanim2
if x$="H" then put (yshape,xshape),Hshape545%,pset:yshape=yshape+30:goto shapeanim2
if x$="I" then put (yshape,xshape),Ishape545%,pset:yshape=yshape+30:goto shapeanim2
if x$="J" then put (yshape,xshape),Jshape545%,pset:yshape=ysh